Überlagerung  zweier Schwingungen

Version Stand
26.12.2020
Andreas Jäger

t =

Info

Schwingung 1

Schwingung 2

Überlagerung

Ortskurve 1

Ortskurve 2

Örtskurve Überlagerung

Amplitude 1

Amplitude 2

Amplitude Überlagerung

T_1 =

A_1 =

φ_{01} =

φ_{02} =

T_2 =

A_2 =

t: 0
Textfeld4 = Textfield(t)
a = false
T1 = 8.859795121961064 (slider from 0 to 20, step 0.001)
T2 = 3.9391022315312627 (slider from 0 to 20, step 0.001)
A1 = 4.329 (slider from 0 to 15, step 0.001)
A2 = 4.783 (slider from 0 to 10, step 0.001)
phi01 = 0 (slider from 0 to (2 * 3.1415), step (2 * 3.1415 / 1000))
phi02 = 0 (slider from 0 to (2 * 3.1415), step (2 * 3.1415 / 1000))
P1: ((A1 * cos(phi01 + ((2 * π / T1) * t))), (A1 * sin(phi01 + ((2 * π / T1) * t))))
P2: ((A2 * cos(phi02 + ((2 * π / T2) * t))), (A2 * sin(phi02 + ((2 * π / T2) * t))))
PT1: (T1, 0)
PT2: (T2, 0)
f1(x) = If[x ≥ 0, (A1 * sin(((2 * π / T1) * x) + phi01))]
f2(x) = If[x ≥ 0, (A2 * sin(((2 * π / T2) * x) + phi02))]
PA1: (0, A1)
PA2: (0, A2)
K2 = Circle((0, 0), A2)
K1 = Circle((0, 0), A1)
PP1: (t, y(P1))
PP2: (t, y(P2))
V1 = Vector((0, 0), P1)
V2 = Vector((0, 0), P2)
Vg = Vector((0, 0), P1 + P2)
fg(x) = f1(x) + f2(x)
phigä: atand(y(Vg) / x(Vg))
b1 = true
b2 = false
bÜ = false
bO1 = false
bO2 = false
bOÜ: false
Ag: abs(Vg)
PAg: (t, Ag)
fA(x) = If[x ≥ 0, abs(((A1 * cos(phi01 + ((2 * π / T1) * x))), (A1 * sin(phi01 + ((2 * π / T1) * x)))) + ((A2 * cos(phi02 + ((2 * π / T2) * x))), (A2 * sin(phi02 + ((2 * π / T2) * x)))))]
bAA1 = false
bAA2 = false
bAAÜ = false
fAA1(x) = If[x ≥ 0, A1]
fAA2(x) = If[x ≥ 0, A2]
Eingabefeld1 = Textfield(T1)
Eingabefeld2 = Textfield(A1)
Eingabefeld3 = Textfield(phi01)
Eingabefeld4 = Textfield(phi02)
Eingabefeld5 = Textfield(T2)
Eingabefeld6 = Textfield(A2)
fff1(x) = If[0 ≤ x ≤ T1, (A1 * sin(((2 * π / T1) * x) + phi01))]
fff2(x) = If[0 ≤ x ≤ T2, (A2 * sin(((2 * π / T2) * x) + phi02))]